home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS226.dsk / HELP.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  38 lines
  1. 0  REM FAMILY ROOTS: HELP PROGRAM. COPYRIGHT 1985, QUINSEPT, INC.
  2. 10 D$ =  CHR$(4): GOTO 10000
  3. 690  GOSUB 876
  4. 691  GET YN$
  5. 692  PRINT YN$: IF  ASC(YN$) >96  AND  ASC(YN$) <123  THEN YN$ =  CHR$( ASC(YN$) -32)
  6. 693  RETURN 
  7. 850  HOME : RETURN 
  8. 875  RETURN : REM  INVERSE
  9. 876  RETURN : REM   NORMAL
  10. 880  FOR I = 1 TO 8: PRINT : NEXT : RETURN 
  11. 1000  PRINT D$;"OPEN CONFIGURATION": PRINT D$;"READ CONFIGURATION"
  12. 1010  FOR I = 1 TO 64: INPUT Q(I): NEXT 
  13. 1030  PRINT D$;"CLOSE CONFIGURATION"
  14. 1040  RETURN 
  15. 6760  ONERR  GOTO 6800
  16. 6765  PRINT D$;"RUN DIMMER"
  17. 6800  PRINT "CAN'T FIND NEXT MODULE..": GOSUB 690: GOTO 20000
  18. 7100  GOSUB 850: GOSUB 880: GOSUB 875: PRINT "PLEASE WAIT";: GOSUB 876: PRINT "...": PRINT : PRINT  SPC( 14);: RETURN 
  19. 8000  PRINT D$;"OPEN AID": PRINT D$;"READ AID"
  20. 8005  INPUT EL
  21. 8010  FOR I = 1 TO EL
  22. 8020  INPUT IN$(I)
  23. 8040  NEXT 
  24. 8050  PRINT D$;"CLOSE": RETURN 
  25. 10000 ML = 200:SN = 22:WD = 40:CZ$ =  CHR$(26): DIM Q(64),IN$(ML): GOSUB 1000: GOSUB 8000
  26. 10005 Y = 1:Z = 0:W = 0: GOSUB 850
  27. 10010  IF IN$(Z +1) = ""  THEN 10020
  28. 10011 FL = 0: FOR I = Z +1 TO W +SN: IF IN$(I) = ""  THEN FL = 1:I = W +SN
  29. 10012  NEXT : IF FL = 1  THEN 10020
  30. 10015  GOSUB 12000: GOSUB 850: IF YN$ = CZ$  THEN 6760
  31. 10016 Y = Y +1:W = Z: GOTO 10010
  32. 10020 Z = Z +1: IF Z >EL  THEN  GOSUB 12000: GOTO 6760
  33. 10030  PRINT  SPC( (Q(22) -WD +1)/2)IN$(Z)
  34. 10040  GOTO 10010
  35. 12000  PRINT : PRINT  SPC( (Q(22) -WD +1)/2)"PRESS ANY KEY TO CONTINUE... ";: GOSUB 690
  36. 12005  IF YN$ =  CHR$(3)  THEN  END 
  37. 12010  RETURN 
  38. 20000  PRINT D$;"CLOSE": GOTO 10005